home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / GCBPlaner.lha / GCBPlaner / Install-GCBPlaner < prev    next >
Text File  |  1995-02-22  |  8KB  |  274 lines
  1. ;********************************************************************
  2. ; $VER: Install-GCBPlaner V1.11 Dienstag 24.01.95
  3. ;       Gabriele Christine Bauer
  4. ;       St.-Augustinus-Str 74
  5. ;       81825 München
  6. ;       Deutschland
  7. ;********************************************************************
  8. ; Zwischenfelder
  9. ;********************************************************************
  10. (set true 1)
  11. (set false 0)
  12. (set not_here 0)
  13. (set is_a_file 1)
  14. (set is_a_dir 2)
  15. (set newline "\n")
  16. (set quote "\"")
  17. (set nothing "")
  18. (set testing true)
  19. (set testing false)
  20. (delopts "AskUser" "OkNoDelete" "Force")
  21. (set intro_text
  22.   (cat "Willkommen zum Installationsprogramm von GCBPlaner. "
  23.   )
  24. )
  25. (set final_text
  26.   (cat "GCBPlaner ist nun erfolgreich auf Ihrem System installiert. "
  27.        "Beim nächsten Rechnerstart wird er aktiv. "
  28.        "Um GCBPlaner zu öffnen, klicken Sie bitte mit der linken Maustaste "
  29.        "auf die obere linke Ecke Ihres Workbench-Fensters."
  30.        newline
  31.   )
  32. )
  33. (set #bad-kick
  34.   (cat "Sie müssen Kickstart 2.04 benutzen, um GCBPlaner benutzen zu können. Abbruch!"
  35.   )
  36. )
  37. (set #install-msg
  38.   (cat newline
  39.        newline 
  40.        "GCBPlaner Installationsskript."
  41.        newline
  42.          "Diese Installationsroutine installiert GCBPlaner auf Ihrem Amiga."
  43.          newline
  44.          newline
  45.          "Lesen Sie bitte die Dokumentation für "
  46.        "weitere Informationen über die Weitergeabe. "
  47.        newline
  48.        "GCBPlaner © 1995 Gabriele Christine Bauer "
  49.        newline
  50.        "Alle Rechte vorbehalten."
  51.   )
  52. )
  53. (set #vorhanden-txt
  54.   (cat "Auf Ihrem Rechner ist bereits eine Version von GCBPlaner "
  55.        "aktiv."
  56.        newline
  57.        newline
  58.        "Soll diese Version ersetzt werden ?"
  59.        newline
  60.        newline
  61.        "(Termindaten sind von dieser Aktion nicht betroffen)"
  62.   )
  63. )
  64. (set #noreplace
  65.   (cat "Das Überschreiben der bestehenden Version wurde von "
  66.        "Ihnen negativ beantwortet."
  67.        newline
  68.        newline
  69.        "Hiermit wird die Installationsroutine abgebrochen!"
  70.   )
  71. )
  72. (set #do-inst-GCBPlaner
  73.   (cat newline
  74.        newline
  75.        "Jetzt wird das Basisprogramm des Terminplaners in die "
  76.        "Schublade WBStartUp kopiert, um beim nächsten Rechnerstart "
  77.        "automatisch gestartet zu werden."
  78.   )
  79. )
  80. (set #do-inst-libs
  81.   (cat newline
  82.        newline
  83.        "Jetzt werden alle benötigten Bibliotheken und "
  84.        "Zeichensätze kopiert."
  85.   )
  86. )
  87. (set #wohin
  88.   (cat "Wohin sollen die Zusatzprogramme von GCBPlaner kopiert werden ?"
  89.        newline
  90.        "Ein Verzeichnis GCBPlaner wird erzeugt"
  91.   )
  92. )
  93. (set #erst-dir
  94.   (cat "Das Verzeichnis" GCBDir "wird erstellt"
  95.   )
  96. )
  97. (set #vorhanden
  98.   (cat "GCBPlaner bereits installiert"
  99.        newline
  100.        newline
  101.        " Ja - GCBPlaner wird überschrieben"
  102.        newline
  103.        newline
  104.        "Nein, Abbrechen - Installation wird abgebrochen"
  105.   )
  106. )
  107. ;********************************************************************
  108. ; Begrüßung
  109. ;********************************************************************
  110. (welcome intro_text)
  111. ;********************************************************************
  112. ; Prüfung auf OS 2.04
  113. ;********************************************************************
  114. (if (< (/ (getversion) 65536) 37)
  115. (
  116.   (abort #bad-kick)
  117. ))
  118. ;********************************************************************
  119. ; Copyright
  120. ;********************************************************************
  121. (message #install-msg)
  122. ;********************************************************************
  123. ; GCBPlaner bereits vorhanden ?
  124. ;********************************************************************
  125. (set installDP true)
  126. (if (= (exists "SYS:WBStartUp/GCBPlaner") is_a_file)
  127.   (set installDP
  128.     (askbool
  129.       (prompt #vorhanden-txt)
  130.       (help #vorhanden)
  131.     )
  132.   )
  133. )
  134. (if (= installDP false)
  135.   (abort #noreplace)
  136. )
  137. ;********************************************************************
  138. ; Kopieren GCBPlaner
  139. ;********************************************************************
  140. (message #do-inst-GCBPlaner)
  141. (copyfiles
  142.     (prompt "Installiere GCBPlaner")
  143.     (help @copyfiles-help)
  144.     (source "GCBPlaner/GCBPlaner")
  145.     (dest "SYS:WBStartUp")
  146. )
  147. (copyfiles
  148.     (prompt "Installiere GCBPlaner")
  149.     (help @copyfiles-help)
  150.     (source "GCBPlaner/GCBPlaner.info")
  151.     (dest "SYS:WBStartUp")
  152. )
  153. ;********************************************************************
  154. ; Verzeichnis für GCBPlaner ermitteln
  155. ;********************************************************************
  156. (set GCBWahl
  157.         (askdir
  158.             (prompt #wohin)
  159.             (default "SYS:")
  160.             (help #askdir-help)
  161.         )
  162. )
  163. (set GCBDir (tackon GCBWahl "GCBPlaner"))
  164. (makedir GCBDir
  165.     (prompt #erst-dir)
  166.     (help @makedir-help)
  167. )
  168. (set #do-inst-GCBPlanerdeck
  169.   (cat newline
  170.        newline
  171.        "Als nächstes wird die Oberfläche, die später die erreichten "
  172.        "Termine anzeigt und die Dokumentation in das Verzeichnis"
  173.        newline
  174.        GCBDir
  175.        newline
  176.        "kopiert."
  177.   )
  178. )
  179. ;********************************************************************
  180. ; Kopieren GCBPlaner.deck
  181. ;********************************************************************
  182. (message #do-inst-GCBPlanerdeck)
  183. (copyfiles
  184.     (prompt "Installiere GCBPlaner")
  185.     (help @copylib-help)
  186.     (source "GCBPlaner/")
  187.     (pattern "#?")
  188.     (dest GCBDir)
  189. )
  190. ;********************************************************************
  191. ; Kopiere CanDo-Bibliotheken
  192. ;********************************************************************
  193. (message #do-inst-libs)
  194. (copylib
  195.     (prompt "Installiere CanDo.library")
  196.     (help @copylib-help)
  197.     (source "libs/CanDo.library")
  198.     (dest "Libs:")
  199. )
  200. (copylib
  201.     (prompt "Installiere CanDoGfx.library")
  202.     (help @copylib-help)
  203.     (source "libs/CanDoGfx.library")
  204.     (dest "Libs:")
  205. )
  206. (copylib
  207.     (prompt "Installiere INOVAMusic.library")
  208.     (help @copylib-help)
  209.     (source "libs/INOVAMusic.library")
  210.     (dest "Libs:")
  211. )
  212. (copyfiles
  213.   (prompt "Installiere GCBPlaner-Fonts")
  214.       (help @copylib-help)
  215.       (source "Fonts/GCBPlaner/9")
  216.       (dest "Fonts:GCBPlaner")
  217. )
  218. (copyfiles
  219.   (prompt "Installiere GCBPlaner-Fonts")
  220.       (help @copylib-help)
  221.       (source "Fonts/GCBPlaner.font")
  222.       (dest "Fonts:")
  223. )
  224. (copyfiles
  225.   (prompt "Installiere GCBPlaner-Icon")
  226.       (help @copylib-help)
  227.       (source "GCBPlaner.info")
  228.       (dest GCBWahl)
  229. )
  230. ;********************************************************************
  231. ; Installieren Key-File
  232. ;********************************************************************
  233. (if (= (exists "GCBPlaner/GCBPlaner.key") is_a_file)
  234.   ((message
  235.     (cat "Nun wird Ihr persönliches Key-File installiert."
  236.          "Dieses Key-File enthält Ihre persönlichen Daten und Ihre "
  237.          "Registriernummer."
  238.          newline
  239.          newline
  240.          "Diese Datei darf unter keinen Umständen weitergegeben werden !!!"
  241.     )
  242.   )
  243.   (copyfiles
  244.       (prompt "Installiere Key-File")
  245.       (help @copylib-help)
  246.       (source "GCBPlaner/GCBPlaner.key")
  247.       (dest GCBDir)
  248.   ))
  249. )
  250. ;********************************************************************
  251. ; Assign auf GCBPlaner
  252. ;********************************************************************
  253. (set user_script
  254.   (cat 
  255.     "  Assign GCBPlaner: \"" GCBDir "\""
  256.   )
  257. )
  258. (working omp "Updating S:User-Startup.")
  259. (startup "GCBPlaner"
  260.   (prompt
  261.       "Diese Instruktionen müssen an die Datei \"S:User-Startup\" hinzugefügt"
  262.         "werden."
  263.         "Somit ist Ihr System für den Einsatz von GCBPlaner konfiguriert.\n\n"
  264.         user_script
  265.     )
  266.     (help @startup-help)
  267.     (command user_script)
  268. )
  269. ;********************************************************************
  270. ; Endemeldung
  271. ;********************************************************************
  272. (set @default-dest GCBDir)
  273. (exit Final_text)
  274.